home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / bsave demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  484b  |  12 lines
  1. 5 rem copyright 1988  compute! publications, inc.
  2. 10 print"[147]copyright 1988"
  3. 12 print"compute! publications, inc."
  4. 14 print"all rights reserved."
  5. 16 for x=1 to 2000:next:print"[147]"
  6. 20 poke 53281,14:print chr$(147):poke 53281,6:sys 57812 "screen",8,1:poke 780,0
  7. 30 sys 65493:open 15,8,15:input#15,e:close 15:sys 65487
  8. 40 open15,8,15,"s0:screen":close15:f$="screen":d=8:sa=1024:ea=2024
  9. 1000 sys 57812 f$,d:poke 173,sa/256:poke 172,sa-peek(173)*256:poke 780,172
  10. 1010 poke 782,ea/256:poke 781,ea-peek(782)*256:sys 65496
  11. 1020 print chr$(147)
  12.